home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / game / text / EAC14b.lha / EAC / Adventures / Scripts / LuckyLotto.EAC next >
Text File  |  1998-10-08  |  3KB  |  154 lines
  1. .-------------------------------------------------------------------------.
  2. |  This EAC script shows you how it is possible to use EAC for more than  |
  3. |  just text adventures..                                                 |
  4. `-------------------------------------------------------------------------'
  5.  
  6. DEC:ball1,ball2,ball3,ball4,ball5,ball6,
  7. DEC:ballnum
  8.  
  9. NOBUSY:
  10. NOBUILD:
  11.  
  12. WINDOW:Matt's Lucky Lotto Program
  13. TITLE:Lucky Lotto
  14. AUTHOR:Matt Briggs
  15. VERSION:1.0
  16. COPYRIGHT:Remember that this|program is shareware!|So if you win the|lotto, you could send me|a few million pounds!
  17.  
  18. .-----------------------.
  19. |  Setup the main loop  |
  20. `-----------------------'
  21.  
  22. PAGE:START
  23.  
  24.  
  25.  
  26. ILBM:EAC:Adventures/Data/LuckyLotto/LuckyLotto.iff
  27.  
  28. PAGE:START2
  29. LET:ballnum=1
  30. CLRTEXT:
  31. ADDTEXT:YOUR LUCKY NUMBERS ARE:  
  32.  
  33. YELLOW:
  34. *** Selecting your lucky numbers ***
  35. PAGE:START3
  36. GOIF:ballnum=1:ReSelectBall1
  37. GOIF:ballnum=2:ReSelectBall2
  38. GOIF:ballnum=3:ReSelectBall3
  39. GOIF:ballnum=4:ReSelectBall4
  40. GOIF:ballnum=5:ReSelectBall5
  41. GOIF:ballnum=6:ReSelectBall6
  42.  
  43. GREEN:
  44. ADDOPT:Re-Select numbers:START2
  45. ENDPAGE:
  46.  
  47. .----------------------------.
  48. |  Select ball number - 1 -  |
  49. `----------------------------'
  50.  
  51. PAGE:ReSelectBall1
  52. RND:ball1:50
  53. GOIF:ball1=0:ReSelectBall1
  54. ADDTEXTIF:ball1<=9:0
  55. ADDVAR:ball1
  56. ADDTEXT: , 
  57. ADD:ballnum:1
  58. GOTO:START3
  59. ENDPAGE:
  60.  
  61. .----------------------------.
  62. |  Select ball number - 2 -  |
  63. `----------------------------'
  64.  
  65. PAGE:ReSelectBall2
  66. RND:ball2:50
  67. GOIF:ball2=0:ReSelectBall2
  68. GOIF:ball2=ball1:ReSelectBall2
  69. ADDTEXTIF:ball2<=9:0
  70. ADDVAR:ball2
  71. ADDTEXT: , 
  72. ADD:ballnum:1
  73. GOTO:START3
  74. ENDPAGE:
  75.  
  76. .----------------------------.
  77. |  Select ball number - 3 -  |
  78. `----------------------------'
  79.  
  80. PAGE:ReSelectBall3
  81. RND:ball3:50
  82. GOIF:ball3=0:ReSelectBall3
  83. GOIF:ball3=ball1:ReSelectBall3
  84. GOIF:ball3=ball2:ReSelectBall3
  85. ADDTEXTIF:ball3<=9:0
  86. ADDVAR:ball3
  87. ADDTEXT: , 
  88. ADD:ballnum:1
  89. GOTO:START3
  90. ENDPAGE:
  91.  
  92. .----------------------------.
  93. |  Select ball number - 4 -  |
  94. `----------------------------'
  95.  
  96. PAGE:ReSelectBall4
  97. RND:ball4:50
  98. GOIF:ball4=0:ReSelectBall4
  99. GOIF:ball4=ball1:ReSelectBall4
  100. GOIF:ball4=ball2:ReSelectBall4
  101. GOIF:ball4=ball3:ReSelectBall4
  102. ADDTEXTIF:ball4<=9:0
  103. ADDVAR:ball4
  104. ADDTEXT: , 
  105. ADD:ballnum:1
  106. GOTO:START3
  107. ENDPAGE:
  108.  
  109. .----------------------------.
  110. |  Select ball number - 5 -  |
  111. `----------------------------'
  112.  
  113. PAGE:ReSelectBall5
  114. RND:ball5:50
  115. GOIF:ball5=0:ReSelectBall5
  116. GOIF:ball5=ball1:ReSelectBall5
  117. GOIF:ball5=ball2:ReSelectBall5
  118. GOIF:ball5=ball3:ReSelectBall5
  119. GOIF:ball5=ball4:ReSelectBall5
  120. ADDTEXTIF:ball5<=9:0
  121. ADDVAR:ball5
  122. ADDTEXT: , 
  123. ADD:ballnum:1
  124. GOTO:START3
  125. ENDPAGE:
  126.  
  127. .----------------------------.
  128. |  Select ball number - 6 -  |
  129. `----------------------------'
  130.  
  131. PAGE:ReSelectBall6
  132. RND:ball6:50
  133. GOIF:ball6=0:ReSelectBall5
  134. GOIF:ball6=ball1:ReSelectBall6
  135. GOIF:ball6=ball2:ReSelectBall6
  136. GOIF:ball6=ball3:ReSelectBall6
  137. GOIF:ball6=ball4:ReSelectBall6
  138. GOIF:ball6=ball5:ReSelectBall6
  139. ADDTEXTIF:ball6<=9:0
  140. ADDVAR:ball6
  141. ADD:ballnum:1
  142. GOTO:START3
  143. ENDPAGE:
  144.  
  145. .-------------.
  146. |  HELP page  |
  147. `-------------'
  148.  
  149. PAGE:HELP
  150.  
  151. Use this program to help you pick those lucky lottery numbers :)
  152. ENDPAGE:
  153.  
  154.